function f=fct_C_inner(x,delta,kernel_type)

switch lower(kernel_type)
   case {'epanechnikov','epan','epanech','e','quadratic','quad'}
	  f=(9*x^5)/80 + ((9*delta)/32 - 9/16)*x^4 + ((3*delta^2)/16 - (9*delta)/8 + 9/8)*x^3 + (- (9*delta^2)/16 + (27*delta)/16 - 9/8)*x^2 + ((9*delta^2)/16 - (9*delta)/8 + 9/16)*x;
	  %
   case {'biweight','quartic','bi','quart'}
	  f=(25*x^9)/256 + (225*delta*x^8)/512 + ((675*delta^2)/896 - 225/448)*x^7 + ((75*delta^3)/128 - (225*delta)/128)*x^6 + ((45*delta^4)/256 - (315*delta^2)/128 + 135/128)*x^5 + ((675*delta)/256 - (225*delta^3)/128)*x^4 + (- (75*delta^4)/128 + (375*delta^2)/128 - 75/64)*x^3 + ((225*delta^3)/128 - (225*delta)/128)*x^2 + ((225*delta^4)/256 - (225*delta^2)/128 + 225/256)*x;
	  %
   otherwise
      error('Kernel type not recognized');
end
	%
 
